﻿Public Module Variables
    'resistencia mecanica del material
    Public su As Integer = 0
    Public sf As Integer = 0
    Public sa As Integer = 0
    'velocidad de giro del árbol
    Public nrev As Double = 0
    'posicion de apoyos y longitud del árbol
    Public yr1 As Single = 0
    Public yr2 As Single = 0
    Public yt As Single = 0
    'posición de carga, potencia, momento torsor, angulo de presion normal, modulo normal del engranaje, numero de dientes, 
    'angulo de helice, diametro primitivo. (ENGRANAJE CILINDRICO RECTO)
    Public yc1 As Single = 0
    Public pc1 As Single = 0
    Public mt1 As Single = 0
    Public angpresn1 As Single = 0
    Public mod1 As Single = 0
    Public z1 As Single = 0
    Public angheli1 As Single = 0
    Public dp1 As Single = 0
    Public fp11 As Single = 0
    Public fp21 As Single = 0
    Public dp11 As Single = 0
    Public dp21 As Single = 0
    Public tetap1 As Single = 0
    Public alfap1 As Single = 0
    Public decp1 As Single = 0
    Public fxcp1 As Single = 0
    Public fzcp1 As Single = 0
    Public fxp1 As Single = 0
    Public fzp1 As Single = 0
    Public yc2 As Single = 0
    Public pc2 As Single = 0
    Public mt2 As Single = 0
    Public angpresn2 As Single = 0
    Public mod2 As Single = 0
    Public z2 As Single = 0
    Public angheli2 As Single = 0
    Public dp2 As Single = 0
    Public fp12 As Single = 0
    Public fp22 As Single = 0
    Public dp12 As Single = 0
    Public dp22 As Single = 0
    Public tetap2 As Single = 0
    Public alfap2 As Single = 0
    Public decp2 As Single = 0
    Public fxcp2 As Single = 0
    Public fzcp2 As Single = 0
    Public fxp2 As Single = 0
    Public fzp2 As Single = 0
    Public yc3 As Single = 0
    Public pc3 As Single = 0
    Public mt3 As Single = 0
    Public angpresn3 As Single = 0
    Public mod3 As Single = 0
    Public z3 As Single = 0
    Public angheli3 As Single = 0
    Public dp3 As Single = 0
    Public fp13 As Single = 0
    Public fp23 As Single = 0
    Public dp13 As Single = 0
    Public dp23 As Single = 0
    Public tetap3 As Single = 0
    Public alfap3 As Single = 0
    Public decp3 As Single = 0
    Public fxcp3 As Single = 0
    Public fzcp3 As Single = 0
    Public fxp3 As Single = 0
    Public fzp3 As Single = 0
    Public yc4 As Single = 0
    Public pc4 As Single = 0
    Public mt4 As Single = 0
    Public angpresn4 As Single = 0
    Public mod4 As Single = 0
    Public z4 As Single = 0
    Public angheli4 As Single = 0
    Public dp4 As Single = 0
    Public fp14 As Single = 0
    Public fp24 As Single = 0
    Public dp14 As Single = 0
    Public dp24 As Single = 0
    Public tetap4 As Single = 0
    Public alfap4 As Single = 0
    Public decp4 As Single = 0
    Public fxcp4 As Single = 0
    Public fzcp4 As Single = 0
    Public fxp4 As Single = 0
    Public fzp4 As Single = 0
    Public yc5 As Single = 0
    Public pc5 As Single = 0
    Public mt5 As Single = 0
    Public angpresn5 As Single = 0
    Public mod5 As Single = 0
    Public z5 As Single = 0
    Public angheli5 As Single = 0
    Public dp5 As Single = 0
    Public fp15 As Single = 0
    Public fp25 As Single = 0
    Public dp15 As Single = 0
    Public dp25 As Single = 0
    Public tetap5 As Single = 0
    Public alfap5 As Single = 0
    Public decp5 As Single = 0
    Public fxcp5 As Single = 0
    Public fzcp5 As Single = 0
    Public fxp5 As Single = 0
    Public fzp5 As Single = 0
    Public yc6 As Single = 0
    Public pc6 As Single = 0
    Public mt6 As Single = 0
    Public angpresn6 As Single = 0
    Public mod6 As Single = 0
    Public z6 As Single = 0
    Public angheli6 As Single = 0
    Public dp6 As Single = 0
    Public fp16 As Single = 0
    Public fp26 As Single = 0
    Public dp16 As Single = 0
    Public dp26 As Single = 0
    Public tetap6 As Single = 0
    Public alfap6 As Single = 0
    Public decp6 As Single = 0
    Public fxcp6 As Single = 0
    Public fzcp6 As Single = 0
    Public fxp6 As Single = 0
    Public fzp6 As Single = 0


    Public c1x As Single = 0
    Public c1y As Single = 0
    Public c1z As Single = 0
    Public c2x As Single = 0
    Public c2y As Single = 0
    Public c2z As Single = 0
    Public c3x As Single = 0
    Public c3y As Single = 0
    Public c3z As Single = 0
    Public c4x As Single = 0
    Public c4y As Single = 0
    Public c4z As Single = 0
    Public c5x As Single = 0
    Public c5y As Single = 0
    Public c5z As Single = 0
    Public c6x As Single = 0
    Public c6y As Single = 0
    Public c6z As Single = 0

    Public m1x As Single = 0
    Public m1y As Single = 0
    Public m1z As Single = 0
    Public m2x As Single = 0
    Public m2y As Single = 0
    Public m2z As Single = 0
    Public m3x As Single = 0
    Public m3y As Single = 0
    Public m3z As Single = 0
    Public m4x As Single = 0
    Public m4y As Single = 0
    Public m4z As Single = 0
    Public m5x As Single = 0
    Public m5y As Single = 0
    Public m5z As Single = 0
    Public m6x As Single = 0
    Public m6y As Single = 0
    Public m6z As Single = 0

    Public r1x As Single = 0
    Public r1y As Single = 0
    Public r1z As Single = 0
    Public r2x As Single = 0
    Public r2y As Single = 0
    Public r2z As Single = 0
    Public vz As Single = 0
    Public vx As Single = 0
    Public mx As Single = 0
    Public mz As Single = 0
    Public n As Single = 0
    Public mt As Single = 0
    'flag de tipologias de árboles
    Public esa As Single = 0
    Public ecvd As Single = 0
    Public ecvi As Single = 0
    Public ecdv As Single = 0
    'calculo
    'longdetramos
    Public ylt1 As Single = 0
    Public ylt2 As Single = 0
    Public ylt3 As Single = 0
    Public ylt4 As Single = 0
    Public ylt5 As Single = 0
    Public ylt6 As Single = 0
    Public ylt7 As Single = 0


    'posicion de sección crítica, momentos internos para analisis de resistencia estatica, factor de seguridad para analisis estatico, diametro mínimo calculado por resistencia estática
    Public ye As Single = 0
    Public fsre As Single = 0
    Public dminre As Single = 0
    'calculo de momentos maximos y analisis de secciones como maximo cinco.
    
    Public mxre As Single = 0
    Public mzre As Single = 0
    
    Public myre As Single = 0
    
    Public mrre As Single = 0
    Public sidee As Single = 0
   

    
    



    'VARIABLES PARA EL ANALISIS DE RESISTENCIA A LA FATIGA

    Public d As Single = 0 'diametro del tramo en donde se analiza la seccion elegida

    'variables para el calculo del factor de superficie "ka" 
    Public ka As Single = 0
    Public a As Single = 0
    Public b As Single = 0
    'variables para el calculo del factor de tamaño "kb"
    Public kb As Single = 0
    'variables para el calculo del factor de temperatura "kd"
    Public tempc As Single = 0
    Public tempf As Single = 0
    Public kd As Single = 0
    'variables para el calculo del factor de carga "kc"
    Public kc As Single = 0
    'variables para el calculo del factor de confiabilidad "ke"
    Public ke As Single = 0
    'vasriables para el calcuo del factor de concentracion de esfuerzos 

    Public samod As Single = 0
    'variable de posicion en analisis de fatiga
    Public yaf As Single = 0


    Public mxrf As Single = 0
    Public mzrf As Single = 0
    Public myrf As Single = 0
    'variable que identifica el lado del analisis de resistencia a la fatiga
    Public sidef As Single = 0


    Public y As Single = 0

    'variables de concentradores de esfuerzos
    Public r As Single = 0
    Public nent As Single = 0
    Public alfakflex As Single = 0
    Public alfaktor As Single = 0
    Public betakflex As Single = 0
    Public betaktor As Single = 0
    Public dmayor_ran As Single = 0
    Public dmayor_concentsecc As Single = 0

    'variables de esfuerzos alternantes y medios 
    Public mfr As Single = 0
    Public mtr As Single = 0
    Public enf As Single = 0
    Public ect As Single = 0

    Public enfm As Single = 0
    Public enfa As Single = 0
    Public ectm As Single = 0
    Public ecta As Single = 0

    Public eeqm As Single = 0
    Public eeqa As Single = 0











    Public fsfat As Single = 0



































End Module
